home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr05 / att33all.zip / CAL.FRM < prev    next >
Text File  |  1995-03-17  |  51KB  |  1,620 lines
  1. VERSION 2.00
  2. Begin Form Calendar 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Calendar"
  7.    ClientHeight    =   3795
  8.    ClientLeft      =   1320
  9.    ClientTop       =   1425
  10.    ClientWidth     =   3255
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    Height          =   4230
  14.    HelpContextID   =   40002
  15.    Icon            =   CAL.FRX:0000
  16.    Left            =   1245
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form2"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   253
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   217
  24.    Top             =   1065
  25.    Width           =   3405
  26.    Begin VScrollBar YearScroll 
  27.       Height          =   1740
  28.       LargeChange     =   10
  29.       Left            =   2775
  30.       Max             =   2078
  31.       Min             =   1753
  32.       TabIndex        =   24
  33.       Top             =   570
  34.       Value           =   1753
  35.       Width           =   240
  36.    End
  37.    Begin HScrollBar MonthScroll 
  38.       Height          =   240
  39.       Left            =   225
  40.       Max             =   13
  41.       TabIndex        =   25
  42.       Top             =   2280
  43.       Width           =   2565
  44.    End
  45.    Begin PictureBox Picture1 
  46.       AutoSize        =   -1  'True
  47.       BorderStyle     =   0  'None
  48.       Height          =   135
  49.       Left            =   3015
  50.       Picture         =   CAL.FRX:0302
  51.       ScaleHeight     =   135
  52.       ScaleWidth      =   165
  53.       TabIndex        =   1
  54.       TabStop         =   0   'False
  55.       Tag             =   "Stuck"
  56.       Top             =   90
  57.       Width           =   165
  58.    End
  59.    Begin CommandButton Command2 
  60.       Caption         =   "OK"
  61.       Default         =   -1  'True
  62.       Height          =   345
  63.       Index           =   0
  64.       Left            =   735
  65.       TabIndex        =   0
  66.       Top             =   3300
  67.       Width           =   855
  68.    End
  69.    Begin CommandButton Command1 
  70.       Caption         =   "Today"
  71.       Height          =   345
  72.       Left            =   1620
  73.       TabIndex        =   16
  74.       Top             =   3300
  75.       Width           =   840
  76.    End
  77.    Begin SSCommand Command3 
  78.       BevelWidth      =   1
  79.       Caption         =   "Dec"
  80.       Font3D          =   0  'None
  81.       FontBold        =   0   'False
  82.       FontItalic      =   0   'False
  83.       FontName        =   "MS Sans Serif"
  84.       FontSize        =   8.25
  85.       FontStrikethru  =   0   'False
  86.       FontUnderline   =   0   'False
  87.       Height          =   270
  88.       Index           =   11
  89.       Left            =   2550
  90.       RoundedCorners  =   0   'False
  91.       TabIndex        =   15
  92.       Top             =   2895
  93.       Width           =   480
  94.    End
  95.    Begin SSCommand Command3 
  96.       BevelWidth      =   1
  97.       Caption         =   "Nov"
  98.       Font3D          =   0  'None
  99.       FontBold        =   0   'False
  100.       FontItalic      =   0   'False
  101.       FontName        =   "MS Sans Serif"
  102.       FontSize        =   8.25
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       Height          =   270
  106.       Index           =   10
  107.       Left            =   2085
  108.       RoundedCorners  =   0   'False
  109.       TabIndex        =   14
  110.       Top             =   2895
  111.       Width           =   480
  112.    End
  113.    Begin SSCommand Command3 
  114.       BevelWidth      =   1
  115.       Caption         =   "Oct"
  116.       Font3D          =   0  'None
  117.       FontBold        =   0   'False
  118.       FontItalic      =   0   'False
  119.       FontName        =   "MS Sans Serif"
  120.       FontSize        =   8.25
  121.       FontStrikethru  =   0   'False
  122.       FontUnderline   =   0   'False
  123.       Height          =   270
  124.       Index           =   9
  125.       Left            =   1620
  126.       RoundedCorners  =   0   'False
  127.       TabIndex        =   13
  128.       Top             =   2895
  129.       Width           =   480
  130.    End
  131.    Begin SSCommand Command3 
  132.       BevelWidth      =   1
  133.       Caption         =   "Sep"
  134.       Font3D          =   0  'None
  135.       FontBold        =   0   'False
  136.       FontItalic      =   0   'False
  137.       FontName        =   "MS Sans Serif"
  138.       FontSize        =   8.25
  139.       FontStrikethru  =   0   'False
  140.       FontUnderline   =   0   'False
  141.       Height          =   270
  142.       Index           =   8
  143.       Left            =   1155
  144.       RoundedCorners  =   0   'False
  145.       TabIndex        =   12
  146.       Top             =   2895
  147.       Width           =   480
  148.    End
  149.    Begin SSCommand Command3 
  150.       BevelWidth      =   1
  151.       Caption         =   "Aug"
  152.       Font3D          =   0  'None
  153.       FontBold        =   0   'False
  154.       FontItalic      =   0   'False
  155.       FontName        =   "MS Sans Serif"
  156.       FontSize        =   8.25
  157.       FontStrikethru  =   0   'False
  158.       FontUnderline   =   0   'False
  159.       Height          =   270
  160.       Index           =   7
  161.       Left            =   690
  162.       RoundedCorners  =   0   'False
  163.       TabIndex        =   11
  164.       Top             =   2895
  165.       Width           =   480
  166.    End
  167.    Begin SSCommand Command3 
  168.       BevelWidth      =   1
  169.       Caption         =   "Jul"
  170.       Font3D          =   0  'None
  171.       FontBold        =   0   'False
  172.       FontItalic      =   0   'False
  173.       FontName        =   "MS Sans Serif"
  174.       FontSize        =   8.25
  175.       FontStrikethru  =   0   'False
  176.       FontUnderline   =   0   'False
  177.       Height          =   270
  178.       Index           =   6
  179.       Left            =   225
  180.       RoundedCorners  =   0   'False
  181.       TabIndex        =   10
  182.       Top             =   2895
  183.       Width           =   480
  184.    End
  185.    Begin SSCommand Command3 
  186.       BevelWidth      =   1
  187.       Caption         =   "Jun"
  188.       Font3D          =   0  'None
  189.       FontBold        =   0   'False
  190.       FontItalic      =   0   'False
  191.       FontName        =   "MS Sans Serif"
  192.       FontSize        =   8.25
  193.       FontStrikethru  =   0   'False
  194.       FontUnderline   =   0   'False
  195.       Height          =   270
  196.       Index           =   5
  197.       Left            =   2550
  198.       RoundedCorners  =   0   'False
  199.       TabIndex        =   9
  200.       Top             =   2640
  201.       Width           =   480
  202.    End
  203.    Begin SSCommand Command3 
  204.       BevelWidth      =   1
  205.       Caption         =   "May"
  206.       Font3D          =   0  'None
  207.       FontBold        =   0   'False
  208.       FontItalic      =   0   'False
  209.       FontName        =   "MS Sans Serif"
  210.       FontSize        =   8.25
  211.       FontStrikethru  =   0   'False
  212.       FontUnderline   =   0   'False
  213.       Height          =   270
  214.       Index           =   4
  215.       Left            =   2085
  216.       RoundedCorners  =   0   'False
  217.       TabIndex        =   8
  218.       Top             =   2640
  219.       Width           =   480
  220.    End
  221.    Begin SSCommand Command3 
  222.       BevelWidth      =   1
  223.       Caption         =   "Apr"
  224.       Font3D          =   0  'None
  225.       FontBold        =   0   'False
  226.       FontItalic      =   0   'False
  227.       FontName        =   "MS Sans Serif"
  228.       FontSize        =   8.25
  229.       FontStrikethru  =   0   'False
  230.       FontUnderline   =   0   'False
  231.       Height          =   270
  232.       Index           =   3
  233.       Left            =   1620
  234.       RoundedCorners  =   0   'False
  235.       TabIndex        =   7
  236.       Top             =   2640
  237.       Width           =   480
  238.    End
  239.    Begin SSCommand Command3 
  240.       BevelWidth      =   1
  241.       Caption         =   "Mar"
  242.       Font3D          =   0  'None
  243.       FontBold        =   0   'False
  244.       FontItalic      =   0   'False
  245.       FontName        =   "MS Sans Serif"
  246.       FontSize        =   8.25
  247.       FontStrikethru  =   0   'False
  248.       FontUnderline   =   0   'False
  249.       Height          =   270
  250.       Index           =   2
  251.       Left            =   1155
  252.       RoundedCorners  =   0   'False
  253.       TabIndex        =   6
  254.       Top             =   2640
  255.       Width           =   480
  256.    End
  257.    Begin SSCommand Command3 
  258.       BevelWidth      =   1
  259.       Caption         =   "Feb"
  260.       Font3D          =   0  'None
  261.       FontBold        =   0   'False
  262.       FontItalic      =   0   'False
  263.       FontName        =   "MS Sans Serif"
  264.       FontSize        =   8.25
  265.       FontStrikethru  =   0   'False
  266.       FontUnderline   =   0   'False
  267.       Height          =   270
  268.       Index           =   1
  269.       Left            =   690
  270.       RoundedCorners  =   0   'False
  271.       TabIndex        =   5
  272.       Top             =   2640
  273.       Width           =   480
  274.    End
  275.    Begin SSCommand Command3 
  276.       BevelWidth      =   1
  277.       Caption         =   "Jan"
  278.       Font3D          =   0  'None
  279.       FontBold        =   0   'False
  280.       FontItalic      =   0   'False
  281.       FontName        =   "MS Sans Serif"
  282.       FontSize        =   8.25
  283.       FontStrikethru  =   0   'False
  284.       FontUnderline   =   0   'False
  285.       Height          =   270
  286.       Index           =   0
  287.       Left            =   225
  288.       RoundedCorners  =   0   'False
  289.       TabIndex        =   4
  290.       Top             =   2640
  291.       Width           =   480
  292.    End
  293.    Begin TextBox MonthValue 
  294.       Height          =   330
  295.       Left            =   3880
  296.       TabIndex        =   33
  297.       Top             =   105
  298.       Visible         =   0   'False
  299.       Width           =   390
  300.    End
  301.    Begin Label Label2 
  302.       Alignment       =   2  'Center
  303.       BackColor       =   &H00C0C0C0&
  304.       BackStyle       =   0  'Transparent
  305.       Caption         =   "S"
  306.       FontBold        =   0   'False
  307.       FontItalic      =   0   'False
  308.       FontName        =   "MS Sans Serif"
  309.       FontSize        =   8.25
  310.       FontStrikethru  =   0   'False
  311.       FontUnderline   =   0   'False
  312.       ForeColor       =   &H000000FF&
  313.       Height          =   255
  314.       Index           =   8
  315.       Left            =   240
  316.       TabIndex        =   26
  317.       Top             =   600
  318.       Width           =   375
  319.    End
  320.    Begin Label Label2 
  321.       Alignment       =   2  'Center
  322.       BackColor       =   &H00C0C0C0&
  323.       BackStyle       =   0  'Transparent
  324.       Caption         =   "M"
  325.       FontBold        =   0   'False
  326.       FontItalic      =   0   'False
  327.       FontName        =   "MS Sans Serif"
  328.       FontSize        =   8.25
  329.       FontStrikethru  =   0   'False
  330.       FontUnderline   =   0   'False
  331.       ForeColor       =   &H00000000&
  332.       Height          =   255
  333.       Index           =   7
  334.       Left            =   600
  335.       TabIndex        =   27
  336.       Top             =   600
  337.       Width           =   375
  338.    End
  339.    Begin Label Label2 
  340.       Alignment       =   2  'Center
  341.       BackColor       =   &H00C0C0C0&
  342.       BackStyle       =   0  'Transparent
  343.       Caption         =   "T"
  344.       FontBold        =   0   'False
  345.       FontItalic      =   0   'False
  346.       FontName        =   "MS Sans Serif"
  347.       FontSize        =   8.25
  348.       FontStrikethru  =   0   'False
  349.       FontUnderline   =   0   'False
  350.       ForeColor       =   &H00000000&
  351.       Height          =   255
  352.       Index           =   9
  353.       Left            =   960
  354.       TabIndex        =   28
  355.       Top             =   600
  356.       Width           =   375
  357.    End
  358.    Begin Label Label2 
  359.       Alignment       =   2  'Center
  360.       BackColor       =   &H00C0C0C0&
  361.       BackStyle       =   0  'Transparent
  362.       Caption         =   "W"
  363.       FontBold        =   0   'False
  364.       FontItalic      =   0   'False
  365.       FontName        =   "MS Sans Serif"
  366.       FontSize        =   8.25
  367.       FontStrikethru  =   0   'False
  368.       FontUnderline   =   0   'False
  369.       ForeColor       =   &H00000000&
  370.       Height          =   255
  371.       Index           =   10
  372.       Left            =   1320
  373.       TabIndex        =   29
  374.       Top             =   600
  375.       Width           =   375
  376.    End
  377.    Begin Label Label2 
  378.       Alignment       =   2  'Center
  379.       BackColor       =   &H00C0C0C0&
  380.       BackStyle       =   0  'Transparent
  381.       Caption         =   "T"
  382.       FontBold        =   0   'False
  383.       FontItalic      =   0   'False
  384.       FontName        =   "MS Sans Serif"
  385.       FontSize        =   8.25
  386.       FontStrikethru  =   0   'False
  387.       FontUnderline   =   0   'False
  388.       ForeColor       =   &H00000000&
  389.       Height          =   255
  390.       Index           =   11
  391.       Left            =   1680
  392.       TabIndex        =   30
  393.       Top             =   600
  394.       Width           =   375
  395.    End
  396.    Begin Label Label2 
  397.       Alignment       =   2  'Center
  398.       BackColor       =   &H00C0C0C0&
  399.       BackStyle       =   0  'Transparent
  400.       Caption         =   "F"
  401.       FontBold        =   0   'False
  402.       FontItalic      =   0   'False
  403.       FontName        =   "MS Sans Serif"
  404.       FontSize        =   8.25
  405.       FontStrikethru  =   0   'False
  406.       FontUnderline   =   0   'False
  407.       ForeColor       =   &H00000000&
  408.       Height          =   255
  409.       Index           =   12
  410.       Left            =   2040
  411.       TabIndex        =   35
  412.       Top             =   600
  413.       Width           =   375
  414.    End
  415.    Begin Label Label2 
  416.       Alignment       =   2  'Center
  417.       BackColor       =   &H00C0C0C0&
  418.       BackStyle       =   0  'Transparent
  419.       Caption         =   "S"
  420.       FontBold        =   0   'False
  421.       FontItalic      =   0   'False
  422.       FontName        =   "MS Sans Serif"
  423.       FontSize        =   8.25
  424.       FontStrikethru  =   0   'False
  425.       FontUnderline   =   0   'False
  426.       ForeColor       =   &H00FF0000&
  427.       Height          =   255
  428.       Index           =   13
  429.       Left            =   2400
  430.       TabIndex        =   36
  431.       Top             =   600
  432.       Width           =   375
  433.    End
  434.    Begin Label Mh3d1 
  435.       Alignment       =   2  'Center
  436.       BackColor       =   &H00C0C0C0&
  437.       FontBold        =   0   'False
  438.       FontItalic      =   0   'False
  439.       FontName        =   "MS Sans Serif"
  440.       FontSize        =   8.25
  441.       FontStrikethru  =   0   'False
  442.       FontUnderline   =   0   'False
  443.       ForeColor       =   &H00000000&
  444.       Height          =   225
  445.       Index           =   0
  446.       Left            =   240
  447.       TabIndex        =   37
  448.       Top             =   855
  449.       Width           =   375
  450.    End
  451.    Begin Label Mh3d1 
  452.       Alignment       =   2  'Center
  453.       BackColor       =   &H00C0C0C0&
  454.       Caption         =   "1"
  455.       FontBold        =   0   'False
  456.       FontItalic      =   0   'False
  457.       FontName        =   "MS Sans Serif"
  458.       FontSize        =   8.25
  459.       FontStrikethru  =   0   'False
  460.       FontUnderline   =   0   'False
  461.       ForeColor       =   &H00000000&
  462.       Height          =   225
  463.       Index           =   1
  464.       Left            =   600
  465.       TabIndex        =   38
  466.       Top             =   855
  467.       Width           =   375
  468.    End
  469.    Begin Label Mh3d1 
  470.       Alignment       =   2  'Center
  471.       BackColor       =   &H00C0C0C0&
  472.       Caption         =   "2"
  473.       FontBold        =   0   'False
  474.       FontItalic      =   0   'False
  475.       FontName        =   "MS Sans Serif"
  476.       FontSize        =   8.25
  477.       FontStrikethru  =   0   'False
  478.       FontUnderline   =   0   'False
  479.       ForeColor       =   &H00000000&
  480.       Height          =   225
  481.       Index           =   2
  482.       Left            =   960
  483.       TabIndex        =   39
  484.       Top             =   855
  485.       Width           =   375
  486.    End
  487.    Begin Label Mh3d1 
  488.       Alignment       =   2  'Center
  489.       BackColor       =   &H00C0C0C0&
  490.       Caption         =   "3"
  491.       FontBold        =   0   'False
  492.       FontItalic      =   0   'False
  493.       FontName        =   "MS Sans Serif"
  494.       FontSize        =   8.25
  495.       FontStrikethru  =   0   'False
  496.       FontUnderline   =   0   'False
  497.       ForeColor       =   &H00000000&
  498.       Height          =   225
  499.       Index           =   3
  500.       Left            =   1320
  501.       TabIndex        =   40
  502.       Top             =   855
  503.       Width           =   375
  504.    End
  505.    Begin Label Mh3d1 
  506.       Alignment       =   2  'Center
  507.       BackColor       =   &H00C0C0C0&
  508.       Caption         =   "4"
  509.       FontBold        =   0   'False
  510.       FontItalic      =   0   'False
  511.       FontName        =   "MS Sans Serif"
  512.       FontSize        =   8.25
  513.       FontStrikethru  =   0   'False
  514.       FontUnderline   =   0   'False
  515.       ForeColor       =   &H00000000&
  516.       Height          =   225
  517.       Index           =   4
  518.       Left            =   1680
  519.       TabIndex        =   41
  520.       Top             =   855
  521.       Width           =   375
  522.    End
  523.    Begin Label Mh3d1 
  524.       Alignment       =   2  'Center
  525.       BackColor       =   &H00C0C0C0&
  526.       Caption         =   "5"
  527.       FontBold        =   0   'False
  528.       FontItalic      =   0   'False
  529.       FontName        =   "MS Sans Serif"
  530.       FontSize        =   8.25
  531.       FontStrikethru  =   0   'False
  532.       FontUnderline   =   0   'False
  533.       ForeColor       =   &H00000000&
  534.       Height          =   225
  535.       Index           =   5
  536.       Left            =   2040
  537.       TabIndex        =   42
  538.       Top             =   855
  539.       Width           =   375
  540.    End
  541.    Begin Label Mh3d1 
  542.       Alignment       =   2  'Center
  543.       BackColor       =   &H00C0C0C0&
  544.       Caption         =   "6"
  545.       FontBold        =   0   'False
  546.       FontItalic      =   0   'False
  547.       FontName        =   "MS Sans Serif"
  548.       FontSize        =   8.25
  549.       FontStrikethru  =   0   'False
  550.       FontUnderline   =   0   'False
  551.       ForeColor       =   &H00000000&
  552.       Height          =   225
  553.       Index           =   6
  554.       Left            =   2400
  555.       TabIndex        =   43
  556.       Top             =   855
  557.       Width           =   375
  558.    End
  559.    Begin Label Mh3d1 
  560.       Alignment       =   2  'Center
  561.       BackColor       =   &H00C0C0C0&
  562.       Caption         =   "7"
  563.       FontBold        =   0   'False
  564.       FontItalic      =   0   'False
  565.       FontName        =   "MS Sans Serif"
  566.       FontSize        =   8.25
  567.       FontStrikethru  =   0   'False
  568.       FontUnderline   =   0   'False
  569.       ForeColor       =   &H00000000&
  570.       Height          =   225
  571.       Index           =   7
  572.       Left            =   240
  573.       TabIndex        =   44
  574.       Top             =   1080
  575.       Width           =   375
  576.    End
  577.    Begin Label Mh3d1 
  578.       Alignment       =   2  'Center
  579.       BackColor       =   &H00C0C0C0&
  580.       Caption         =   "8"
  581.       FontBold        =   0   'False
  582.       FontItalic      =   0   'False
  583.       FontName        =   "MS Sans Serif"
  584.       FontSize        =   8.25
  585.       FontStrikethru  =   0   'False
  586.       FontUnderline   =   0   'False
  587.       ForeColor       =   &H00000000&
  588.       Height          =   225
  589.       Index           =   8
  590.       Left            =   600
  591.       TabIndex        =   45
  592.       Top             =   1080
  593.       Width           =   375
  594.    End
  595.    Begin Label Mh3d1 
  596.       Alignment       =   2  'Center
  597.       BackColor       =   &H00C0C0C0&
  598.       Caption         =   "9"
  599.       FontBold        =   0   'False
  600.       FontItalic      =   0   'False
  601.       FontName        =   "MS Sans Serif"
  602.       FontSize        =   8.25
  603.       FontStrikethru  =   0   'False
  604.       FontUnderline   =   0   'False
  605.       ForeColor       =   &H00000000&
  606.       Height          =   225
  607.       Index           =   9
  608.       Left            =   960
  609.       TabIndex        =   46
  610.       Top             =   1080
  611.       Width           =   375
  612.    End
  613.    Begin Label Mh3d1 
  614.       Alignment       =   2  'Center
  615.       BackColor       =   &H00C0C0C0&
  616.       Caption         =   "10"
  617.       FontBold        =   0   'False
  618.       FontItalic      =   0   'False
  619.       FontName        =   "MS Sans Serif"
  620.       FontSize        =   8.25
  621.       FontStrikethru  =   0   'False
  622.       FontUnderline   =   0   'False
  623.       ForeColor       =   &H00000000&
  624.       Height          =   225
  625.       Index           =   10
  626.       Left            =   1320
  627.       TabIndex        =   47
  628.       Top             =   1080
  629.       Width           =   375
  630.    End
  631.    Begin Label Mh3d1 
  632.       Alignment       =   2  'Center
  633.       BackColor       =   &H00C0C0C0&
  634.       Caption         =   "11"
  635.       FontBold        =   0   'False
  636.       FontItalic      =   0   'False
  637.       FontName        =   "MS Sans Serif"
  638.       FontSize        =   8.25
  639.       FontStrikethru  =   0   'False
  640.       FontUnderline   =   0   'False
  641.       ForeColor       =   &H00000000&
  642.       Height          =   225
  643.       Index           =   11
  644.       Left            =   1680
  645.       TabIndex        =   48
  646.       Top             =   1080
  647.       Width           =   375
  648.    End
  649.    Begin Label Mh3d1 
  650.       Alignment       =   2  'Center
  651.       BackColor       =   &H00C0C0C0&
  652.       Caption         =   "12"
  653.       FontBold        =   0   'False
  654.       FontItalic      =   0   'False
  655.       FontName        =   "MS Sans Serif"
  656.       FontSize        =   8.25
  657.       FontStrikethru  =   0   'False
  658.       FontUnderline   =   0   'False
  659.       ForeColor       =   &H00000000&
  660.       Height          =   225
  661.       Index           =   12
  662.       Left            =   2040
  663.       TabIndex        =   49
  664.       Top             =   1080
  665.       Width           =   375
  666.    End
  667.    Begin Label Mh3d1 
  668.       Alignment       =   2  'Center
  669.       BackColor       =   &H00C0C0C0&
  670.       Caption         =   "13"
  671.       FontBold        =   0   'False
  672.       FontItalic      =   0   'False
  673.       FontName        =   "MS Sans Serif"
  674.       FontSize        =   8.25
  675.       FontStrikethru  =   0   'False
  676.       FontUnderline   =   0   'False
  677.       ForeColor       =   &H00000000&
  678.       Height          =   225
  679.       Index           =   13
  680.       Left            =   2400
  681.       TabIndex        =   50
  682.       Top             =   1080
  683.       Width           =   375
  684.    End
  685.    Begin Label Mh3d1 
  686.       Alignment       =   2  'Center
  687.       BackColor       =   &H00C0C0C0&
  688.       Caption         =   "14"
  689.       FontBold        =   0   'False
  690.       FontItalic      =   0   'False
  691.       FontName        =   "MS Sans Serif"
  692.       FontSize        =   8.25
  693.       FontStrikethru  =   0   'False
  694.       FontUnderline   =   0   'False
  695.       ForeColor       =   &H00000000&
  696.       Height          =   225
  697.       Index           =   14
  698.       Left            =   240
  699.       TabIndex        =   51
  700.       Top             =   1320
  701.       Width           =   375
  702.    End
  703.    Begin Label Mh3d1 
  704.       Alignment       =   2  'Center
  705.       BackColor       =   &H00C0C0C0&
  706.       Caption         =   "15"
  707.       FontBold        =   0   'False
  708.       FontItalic      =   0   'False
  709.       FontName        =   "MS Sans Serif"
  710.       FontSize        =   8.25
  711.       FontStrikethru  =   0   'False
  712.       FontUnderline   =   0   'False
  713.       ForeColor       =   &H00000000&
  714.       Height          =   225
  715.       Index           =   15
  716.       Left            =   600
  717.       TabIndex        =   52
  718.       Top             =   1320
  719.       Width           =   375
  720.    End
  721.    Begin Label Mh3d1 
  722.       Alignment       =   2  'Center
  723.       BackColor       =   &H00C0C0C0&
  724.       Caption         =   "16"
  725.       FontBold        =   0   'False
  726.       FontItalic      =   0   'False
  727.       FontName        =   "MS Sans Serif"
  728.       FontSize        =   8.25
  729.       FontStrikethru  =   0   'False
  730.       FontUnderline   =   0   'False
  731.       ForeColor       =   &H00000000&
  732.       Height          =   225
  733.       Index           =   16
  734.       Left            =   960
  735.       TabIndex        =   53
  736.       Top             =   1320
  737.       Width           =   375
  738.    End
  739.    Begin Label Mh3d1 
  740.       Alignment       =   2  'Center
  741.       BackColor       =   &H00C0C0C0&
  742.       Caption         =   "17"
  743.       FontBold        =   0   'False
  744.       FontItalic      =   0   'False
  745.       FontName        =   "MS Sans Serif"
  746.       FontSize        =   8.25
  747.       FontStrikethru  =   0   'False
  748.       FontUnderline   =   0   'False
  749.       ForeColor       =   &H00000000&
  750.       Height          =   225
  751.       Index           =   17
  752.       Left            =   1320
  753.       TabIndex        =   54
  754.       Top             =   1320
  755.       Width           =   375
  756.    End
  757.    Begin Label Mh3d1 
  758.       Alignment       =   2  'Center
  759.       BackColor       =   &H00C0C0C0&
  760.       Caption         =   "18"
  761.       FontBold        =   0   'False
  762.       FontItalic      =   0   'False
  763.       FontName        =   "MS Sans Serif"
  764.       FontSize        =   8.25
  765.       FontStrikethru  =   0   'False
  766.       FontUnderline   =   0   'False
  767.       ForeColor       =   &H00000000&
  768.       Height          =   225
  769.       Index           =   18
  770.       Left            =   1680
  771.       TabIndex        =   55
  772.       Top             =   1320
  773.       Width           =   375
  774.    End
  775.    Begin Label Mh3d1 
  776.       Alignment       =   2  'Center
  777.       BackColor       =   &H00C0C0C0&
  778.       Caption         =   "19"
  779.       FontBold        =   0   'False
  780.       FontItalic      =   0   'False
  781.       FontName        =   "MS Sans Serif"
  782.       FontSize        =   8.25
  783.       FontStrikethru  =   0   'False
  784.       FontUnderline   =   0   'False
  785.       ForeColor       =   &H00000000&
  786.       Height          =   225
  787.       Index           =   19
  788.       Left            =   2040
  789.       TabIndex        =   56
  790.       Top             =   1320
  791.       Width           =   375
  792.    End
  793.    Begin Label Mh3d1 
  794.       Alignment       =   2  'Center
  795.       BackColor       =   &H00C0C0C0&
  796.       Caption         =   "20"
  797.       FontBold        =   0   'False
  798.       FontItalic      =   0   'False
  799.       FontName        =   "MS Sans Serif"
  800.       FontSize        =   8.25
  801.       FontStrikethru  =   0   'False
  802.       FontUnderline   =   0   'False
  803.       ForeColor       =   &H00000000&
  804.       Height          =   225
  805.       Index           =   20
  806.       Left            =   2400
  807.       TabIndex        =   57
  808.       Top             =   1320
  809.       Width           =   375
  810.    End
  811.    Begin Label Mh3d1 
  812.       Alignment       =   2  'Center
  813.       BackColor       =   &H00C0C0C0&
  814.       Caption         =   "21"
  815.       FontBold        =   0   'False
  816.       FontItalic      =   0   'False
  817.       FontName        =   "MS Sans Serif"
  818.       FontSize        =   8.25
  819.       FontStrikethru  =   0   'False
  820.       FontUnderline   =   0   'False
  821.       ForeColor       =   &H00000000&
  822.       Height          =   225
  823.       Index           =   21
  824.       Left            =   240
  825.       TabIndex        =   58
  826.       Top             =   1560
  827.       Width           =   375
  828.    End
  829.    Begin Label Mh3d1 
  830.       Alignment       =   2  'Center
  831.       BackColor       =   &H00C0C0C0&
  832.       Caption         =   "22"
  833.       FontBold        =   0   'False
  834.       FontItalic      =   0   'False
  835.       FontName        =   "MS Sans Serif"
  836.       FontSize        =   8.25
  837.       FontStrikethru  =   0   'False
  838.       FontUnderline   =   0   'False
  839.       ForeColor       =   &H00000000&
  840.       Height          =   225
  841.       Index           =   22
  842.       Left            =   600
  843.       TabIndex        =   59
  844.       Top             =   1560
  845.       Width           =   375
  846.    End
  847.    Begin Label Mh3d1 
  848.       Alignment       =   2  'Center
  849.       BackColor       =   &H00C0C0C0&
  850.       Caption         =   "23"
  851.       FontBold        =   0   'False
  852.       FontItalic      =   0   'False
  853.       FontName        =   "MS Sans Serif"
  854.       FontSize        =   8.25
  855.       FontStrikethru  =   0   'False
  856.       FontUnderline   =   0   'False
  857.       ForeColor       =   &H00000000&
  858.       Height          =   225
  859.       Index           =   23
  860.       Left            =   960
  861.       TabIndex        =   60
  862.       Top             =   1560
  863.       Width           =   375
  864.    End
  865.    Begin Label Mh3d1 
  866.       Alignment       =   2  'Center
  867.       BackColor       =   &H00C0C0C0&
  868.       Caption         =   "24"
  869.       FontBold        =   0   'False
  870.       FontItalic      =   0   'False
  871.       FontName        =   "MS Sans Serif"
  872.       FontSize        =   8.25
  873.       FontStrikethru  =   0   'False
  874.       FontUnderline   =   0   'False
  875.       ForeColor       =   &H00000000&
  876.       Height          =   225
  877.       Index           =   24
  878.       Left            =   1320
  879.       TabIndex        =   61
  880.       Top             =   1560
  881.       Width           =   375
  882.    End
  883.    Begin Label Mh3d1 
  884.       Alignment       =   2  'Center
  885.       BackColor       =   &H00C0C0C0&
  886.       Caption         =   "25"
  887.       FontBold        =   0   'False
  888.       FontItalic      =   0   'False
  889.       FontName        =   "MS Sans Serif"
  890.       FontSize        =   8.25
  891.       FontStrikethru  =   0   'False
  892.       FontUnderline   =   0   'False
  893.       ForeColor       =   &H00000000&
  894.       Height          =   225
  895.       Index           =   25
  896.       Left            =   1680
  897.       TabIndex        =   62
  898.       Top             =   1560
  899.       Width           =   375
  900.    End
  901.    Begin Label Mh3d1 
  902.       Alignment       =   2  'Center
  903.       BackColor       =   &H00C0C0C0&
  904.       Caption         =   "26"
  905.       FontBold        =   0   'False
  906.       FontItalic      =   0   'False
  907.       FontName        =   "MS Sans Serif"
  908.       FontSize        =   8.25
  909.       FontStrikethru  =   0   'False
  910.       FontUnderline   =   0   'False
  911.       ForeColor       =   &H00000000&
  912.       Height          =   225
  913.       Index           =   26
  914.       Left            =   2040
  915.       TabIndex        =   63
  916.       Top             =   1560
  917.       Width           =   375
  918.    End
  919.    Begin Label Mh3d1 
  920.       Alignment       =   2  'Center
  921.       BackColor       =   &H00C0C0C0&
  922.       Caption         =   "27"
  923.       FontBold        =   0   'False
  924.       FontItalic      =   0   'False
  925.       FontName        =   "MS Sans Serif"
  926.       FontSize        =   8.25
  927.       FontStrikethru  =   0   'False
  928.       FontUnderline   =   0   'False
  929.       ForeColor       =   &H00000000&
  930.       Height          =   225
  931.       Index           =   27
  932.       Left            =   2400
  933.       TabIndex        =   64
  934.       Top             =   1560
  935.       Width           =   375
  936.    End
  937.    Begin Label Mh3d1 
  938.       Alignment       =   2  'Center
  939.       BackColor       =   &H00C0C0C0&
  940.       Caption         =   "28"
  941.       FontBold        =   0   'False
  942.       FontItalic      =   0   'False
  943.       FontName        =   "MS Sans Serif"
  944.       FontSize        =   8.25
  945.       FontStrikethru  =   0   'False
  946.       FontUnderline   =   0   'False
  947.       ForeColor       =   &H00000000&
  948.       Height          =   225
  949.       Index           =   28
  950.       Left            =   240
  951.       TabIndex        =   65
  952.       Top             =   1815
  953.       Width           =   375
  954.    End
  955.    Begin Label Mh3d1 
  956.       Alignment       =   2  'Center
  957.       BackColor       =   &H00C0C0C0&
  958.       Caption         =   "29"
  959.       FontBold        =   0   'False
  960.       FontItalic      =   0   'False
  961.       FontName        =   "MS Sans Serif"
  962.       FontSize        =   8.25
  963.       FontStrikethru  =   0   'False
  964.       FontUnderline   =   0   'False
  965.       ForeColor       =   &H00000000&
  966.       Height          =   225
  967.       Index           =   29
  968.       Left            =   600
  969.       TabIndex        =   66
  970.       Top             =   1815
  971.       Width           =   375
  972.    End
  973.    Begin Label Mh3d1 
  974.       Alignment       =   2  'Center
  975.       BackColor       =   &H00C0C0C0&
  976.       Caption         =   "30"
  977.       FontBold        =   0   'False
  978.       FontItalic      =   0   'False
  979.       FontName        =   "MS Sans Serif"
  980.       FontSize        =   8.25
  981.       FontStrikethru  =   0   'False
  982.       FontUnderline   =   0   'False
  983.       ForeColor       =   &H00000000&
  984.       Height          =   225
  985.       Index           =   30
  986.       Left            =   960
  987.       TabIndex        =   67
  988.       Top             =   1815
  989.       Width           =   375
  990.    End
  991.    Begin Label Mh3d1 
  992.       Alignment       =   2  'Center
  993.       BackColor       =   &H00C0C0C0&
  994.       Caption         =   "31"
  995.       FontBold        =   0   'False
  996.       FontItalic      =   0   'False
  997.       FontName        =   "MS Sans Serif"
  998.       FontSize        =   8.25
  999.       FontStrikethru  =   0   'False
  1000.       FontUnderline   =   0   'False
  1001.       ForeColor       =   &H00000000&
  1002.       Height          =   225
  1003.       Index           =   31
  1004.       Left            =   1320
  1005.       TabIndex        =   68
  1006.       Top             =   1815
  1007.       Width           =   375
  1008.    End
  1009.    Begin Label Mh3d1 
  1010.       Alignment       =   2  'Center
  1011.       BackColor       =   &H00C0C0C0&
  1012.       Caption         =   "32"
  1013.       FontBold        =   0   'False
  1014.       FontItalic      =   0   'False
  1015.       FontName        =   "MS Sans Serif"
  1016.       FontSize        =   8.25
  1017.       FontStrikethru  =   0   'False
  1018.       FontUnderline   =   0   'False
  1019.       ForeColor       =   &H00000000&
  1020.       Height          =   225
  1021.       Index           =   32
  1022.       Left            =   1680
  1023.       TabIndex        =   69
  1024.       Top             =   1815
  1025.       Width           =   375
  1026.    End
  1027.    Begin Label Mh3d1 
  1028.       Alignment       =   2  'Center
  1029.       BackColor       =   &H00C0C0C0&
  1030.       Caption         =   "33"
  1031.       FontBold        =   0   'False
  1032.       FontItalic      =   0   'False
  1033.       FontName        =   "MS Sans Serif"
  1034.       FontSize        =   8.25
  1035.       FontStrikethru  =   0   'False
  1036.       FontUnderline   =   0   'False
  1037.       ForeColor       =   &H00000000&
  1038.       Height          =   225
  1039.       Index           =   33
  1040.       Left            =   2040
  1041.       TabIndex        =   17
  1042.       Top             =   1815
  1043.       Width           =   375
  1044.    End
  1045.    Begin Label Mh3d1 
  1046.       Alignment       =   2  'Center
  1047.       BackColor       =   &H00C0C0C0&
  1048.       Caption         =   "34"
  1049.       FontBold        =   0   'False
  1050.       FontItalic      =   0   'False
  1051.       FontName        =   "MS Sans Serif"
  1052.       FontSize        =   8.25
  1053.       FontStrikethru  =   0   'False
  1054.       FontUnderline   =   0   'False
  1055.       ForeColor       =   &H00000000&
  1056.       Height          =   225
  1057.       Index           =   34
  1058.       Left            =   2400
  1059.       TabIndex        =   18
  1060.       Top             =   1815
  1061.       Width           =   375
  1062.    End
  1063.    Begin Label Mh3d1 
  1064.       Alignment       =   2  'Center
  1065.       BackColor       =   &H00C0C0C0&
  1066.       Caption         =   "35"
  1067.       FontBold        =   0   'False
  1068.       FontItalic      =   0   'False
  1069.       FontName        =   "MS Sans Serif"
  1070.       FontSize        =   8.25
  1071.       FontStrikethru  =   0   'False
  1072.       FontUnderline   =   0   'False
  1073.       ForeColor       =   &H00000000&
  1074.       Height          =   225
  1075.       Index           =   35
  1076.       Left            =   240
  1077.       TabIndex        =   19
  1078.       Top             =   2055
  1079.       Width           =   375
  1080.    End
  1081.    Begin Label Mh3d1 
  1082.       Alignment       =   2  'Center
  1083.       BackColor       =   &H00C0C0C0&
  1084.       Caption         =   "36"
  1085.       FontBold        =   0   'False
  1086.       FontItalic      =   0   'False
  1087.       FontName        =   "MS Sans Serif"
  1088.       FontSize        =   8.25
  1089.       FontStrikethru  =   0   'False
  1090.       FontUnderline   =   0   'False
  1091.       ForeColor       =   &H00000000&
  1092.       Height          =   225
  1093.       Index           =   36
  1094.       Left            =   600
  1095.       TabIndex        =   20
  1096.       Top             =   2055
  1097.       Width           =   375
  1098.    End
  1099.    Begin Label Mh3d1 
  1100.       Alignment       =   2  'Center
  1101.       BackColor       =   &H00C0C0C0&
  1102.       Caption         =   " "
  1103.       FontBold        =   0   'False
  1104.       FontItalic      =   0   'False
  1105.       FontName        =   "MS Sans Serif"
  1106.       FontSize        =   8.25
  1107.       FontStrikethru  =   0   'False
  1108.       FontUnderline   =   0   'False
  1109.       ForeColor       =   &H00000000&
  1110.       Height          =   225
  1111.       Index           =   37
  1112.       Left            =   960
  1113.       TabIndex        =   21
  1114.       Top             =   2055
  1115.       Width           =   375
  1116.    End
  1117.    Begin Label Mh3d1 
  1118.       Alignment       =   2  'Center
  1119.       BackColor       =   &H00C0C0C0&
  1120.       Caption         =   " "
  1121.       FontBold        =   0   'False
  1122.       FontItalic      =   0   'False
  1123.       FontName        =   "MS Sans Serif"
  1124.       FontSize        =   8.25
  1125.       FontStrikethru  =   0   'False
  1126.       FontUnderline   =   0   'False
  1127.       ForeColor       =   &H00000000&
  1128.       Height          =   225
  1129.       Index           =   38
  1130.       Left            =   1320
  1131.       TabIndex        =   22
  1132.       Top             =   2055
  1133.       Width           =   375
  1134.    End
  1135.    Begin Label Mh3d1 
  1136.       Alignment       =   2  'Center
  1137.       BackColor       =   &H00C0C0C0&
  1138.       Caption         =   " "
  1139.       FontBold        =   0   'False
  1140.       FontItalic      =   0   'False
  1141.       FontName        =   "MS Sans Serif"
  1142.       FontSize        =   8.25
  1143.       FontStrikethru  =   0   'False
  1144.       FontUnderline   =   0   'False
  1145.       ForeColor       =   &H00000000&
  1146.       Height          =   225
  1147.       Index           =   39
  1148.       Left            =   1680
  1149.       TabIndex        =   23
  1150.       Top             =   2055
  1151.       Width           =   375
  1152.    End
  1153.    Begin Label Mh3d1 
  1154.       Alignment       =   2  'Center
  1155.       BackColor       =   &H00C0C0C0&
  1156.       Caption         =   " "
  1157.       FontBold        =   0   'False
  1158.       FontItalic      =   0   'False
  1159.       FontName        =   "MS Sans Serif"
  1160.       FontSize        =   8.25
  1161.       FontStrikethru  =   0   'False
  1162.       FontUnderline   =   0   'False
  1163.       ForeColor       =   &H00000000&
  1164.       Height          =   225
  1165.       Index           =   40
  1166.       Left            =   2040
  1167.       TabIndex        =   31
  1168.       Top             =   2055
  1169.       Width           =   375
  1170.    End
  1171.    Begin Label Mh3d1 
  1172.       Alignment       =   2  'Center
  1173.       BackColor       =   &H00C0C0C0&
  1174.       Caption         =   " "
  1175.       FontBold        =   0   'False
  1176.       FontItalic      =   0   'False
  1177.       FontName        =   "MS Sans Serif"
  1178.       FontSize        =   8.25
  1179.       FontStrikethru  =   0   'False
  1180.       FontUnderline   =   0   'False
  1181.       ForeColor       =   &H00000000&
  1182.       Height          =   225
  1183.       Index           =   41
  1184.       Left            =   2400
  1185.       TabIndex        =   32
  1186.       Top             =   2055
  1187.       Width           =   375
  1188.    End
  1189.    Begin Label Yr 
  1190.       Alignment       =   2  'Center
  1191.       AutoSize        =   -1  'True
  1192.       BackColor       =   &H00C0C0C0&
  1193.       BackStyle       =   0  'Transparent
  1194.       Caption         =   "1991"
  1195.       ForeColor       =   &H00000000&
  1196.       Height          =   195
  1197.       Left            =   1425
  1198.       TabIndex        =   3
  1199.       Tag             =   "Stuck"
  1200.       Top             =   300
  1201.       Width           =   450
  1202.    End
  1203.    Begin Label Mnth 
  1204.       Caption         =   "Mnth"
  1205.       Height          =   435
  1206.       Left            =   3630
  1207.       TabIndex        =   34
  1208.       Top             =   720
  1209.       Width           =   1815
  1210.    End
  1211.    Begin Label TextMonth 
  1212.       Alignment       =   2  'Center
  1213.       AutoSize        =   -1  'True
  1214.       BackColor       =   &H00C0C0C0&
  1215.       BackStyle       =   0  'Transparent
  1216.       Caption         =   "September"
  1217.       FontBold        =   -1  'True
  1218.       FontItalic      =   0   'False
  1219.       FontName        =   "MS Sans Serif"
  1220.       FontSize        =   9.75
  1221.       FontStrikethru  =   0   'False
  1222.       FontUnderline   =   0   'False
  1223.       ForeColor       =   &H00000000&
  1224.       Height          =   240
  1225.       Left            =   1065
  1226.       TabIndex        =   2
  1227.       Tag             =   "Stuck"
  1228.       Top             =   75
  1229.       Width           =   1170
  1230.    End
  1231. End
  1232. Option Explicit
  1233. Dim DaysInMonth(13) As Integer
  1234. Dim TempfColor As Long
  1235. Dim TempbColor As Long
  1236. Dim SavedCallerDateField As Long
  1237. Dim gNocalc As Integer
  1238. Dim DayToSelect As Integer
  1239. Dim Todayed As Integer
  1240. Dim tcLoaded As Integer
  1241.  
  1242. Dim MouseIsDown As Integer
  1243. Dim SavedScaleMode As Integer
  1244. Dim MStartX As Integer
  1245. Dim MStartY As Integer
  1246.  
  1247.  
  1248. Dim LastClick As Integer
  1249. Dim LastClickDate As Integer
  1250.  
  1251. Sub Command1_Click ()
  1252.     ToToday
  1253.     ConvertDates
  1254. End Sub
  1255.  
  1256. Sub Command2_Click (Index As Integer)
  1257.      If Index = 0 Then
  1258.         CallerDateField = DateSerial(ValTrim((Yr.Caption)), ValTrim((Calendar.MonthValue.Text)), ValTrim((Mh3d1(LastClick%).Caption)))
  1259.      'Else
  1260.      '   CallerDateField = SavedCallerDateField
  1261.      End If
  1262.      LastDateField = CallerDateField
  1263.      tcLoaded = False
  1264.      Unload Calendar
  1265.      'Calendar.Hide
  1266. End Sub
  1267.  
  1268. Sub Command3_Click (Index As Integer)
  1269. Todayed = True
  1270. Calendar.MonthScroll.Value = Index + 1
  1271. Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1272. 'ConvertDates
  1273. End Sub
  1274.  
  1275. Sub ConvertDates ()
  1276. Dim YearC%, MonthC%
  1277. Dim DateToCalc#
  1278. Dim I%, J%, K%, DayNum%, M%
  1279.  
  1280.     Screen.MousePointer = 11
  1281.     DaysInMonth(0) = 0
  1282.     DaysInMonth(1) = 31 'JAN
  1283.     DaysInMonth(2) = 28 'FEB
  1284.     DaysInMonth(3) = 31 'MAR
  1285.     DaysInMonth(4) = 30 'APR
  1286.     DaysInMonth(5) = 31 'MAY
  1287.     DaysInMonth(6) = 30 'JUN
  1288.     DaysInMonth(7) = 31 'JUL
  1289.     DaysInMonth(8) = 31 'AUG
  1290.     DaysInMonth(9) = 30 'SEP
  1291.     DaysInMonth(10) = 31 'OCT
  1292.     DaysInMonth(11) = 30 'NOV
  1293.     DaysInMonth(12) = 31 'DEC
  1294.  
  1295.     YearC% = ValTrim((Calendar.Yr.Caption))
  1296.     MonthC% = ValTrim((Calendar.Mnth.Caption))
  1297.     Calendar.MonthValue.Text = Str$(MonthC%)
  1298.  
  1299.     If YearC% Mod 400 = 0 Then
  1300.         DaysInMonth(2) = 29
  1301.     ElseIf YearC% Mod 100 = 0 Then
  1302.         DaysInMonth(2) = 28
  1303.     ElseIf YearC% Mod 4 = 0 Then
  1304.         DaysInMonth(2) = 29
  1305.     Else
  1306.         DaysInMonth(2) = 28
  1307.     End If
  1308.     DateToCalc# = DateSerial(ValTrim((Calendar.Yr.Caption)), ValTrim((Calendar.Mnth.Caption)), 1)
  1309.     TextMonth.Caption = TransMonth2$(ValTrim((Calendar.Mnth.Caption)))
  1310.     For I% = 0 To 41
  1311.         Mh3d1(I%).Caption = ""
  1312.         Mh3d1(I%).Enabled = False
  1313.     Next I%
  1314.     DayNum% = Weekday(DateToCalc#)
  1315.     J% = 1
  1316.     I% = 0
  1317.     K% = DayNum% - 1
  1318.     M% = 0
  1319.  
  1320.     For I% = 1 To DaysInMonth(MonthC%)
  1321.         If DayToSelect = J% And Todayed Then
  1322.             Mh3d1(LastClick).BackColor = TempbColor
  1323.             Mh3d1(LastClick).ForeColor = TempfColor
  1324.             LastClick% = K%
  1325.             Mh3d1(K%).BackColor = TempfColor
  1326.             Mh3d1(K%).ForeColor = TempbColor
  1327.             Mh3d1_Click (K%)
  1328.             LastClickDate = J%
  1329.             'Exit For
  1330.         ElseIf LastClickDate = J% Then
  1331.             Mh3d1(LastClick).BackColor = TempbColor
  1332.             Mh3d1(LastClick).ForeColor = TempfColor
  1333.             LastClick% = K%
  1334.             Mh3d1(K%).BackColor = TempfColor
  1335.             Mh3d1(K%).ForeColor = TempbColor
  1336.         End If
  1337.         
  1338.         If LastClickDate > DaysInMonth(MonthC%) Or DayToSelect > DaysInMonth(MonthC%) Then
  1339.             Mh3d1(LastClick).BackColor = TempbColor
  1340.             Mh3d1(LastClick).ForeColor = TempfColor
  1341.             LastClick% = K%
  1342.             Mh3d1(K%).BackColor = TempfColor
  1343.             Mh3d1(K%).ForeColor = TempbColor
  1344.         End If
  1345.  
  1346.  
  1347.         
  1348.         Mh3d1(K%).Caption = Trim$(Str$(J%))
  1349.         Mh3d1(K%).Enabled = True
  1350.         J% = J% + 1
  1351.         K% = K% + 1
  1352.     Next I%
  1353.  
  1354.     
  1355.     Screen.MousePointer = 0
  1356.      
  1357. End Sub
  1358.  
  1359. Sub Form_Load ()
  1360.     Dim bLeft%, bTop%, bright%, bbottom%, Addl%
  1361.     Dim SavedScaleMode%
  1362.     Dim I%
  1363.     Dim OldBottom%, NewBottom%, ChangedTop%
  1364.     OldBottom% = Yr.Top + Yr.Height
  1365.  
  1366.     TextMonth.FontName = AllTheTime.FontName
  1367.     TextMonth.ForeColor = AllTheTime.ForeColor
  1368.     TextMonth.FontBold = AllTheTime.FontBold
  1369.     TextMonth.FontSize = AllTheTime.FontSize
  1370.     Yr.FontName = AllTheTime.FontName
  1371.     Yr.ForeColor = AllTheTime.ForeColor
  1372.     Yr.FontBold = AllTheTime.FontBold
  1373.     Yr.FontSize = AllTheTime.FontSize
  1374.     Yr.Top = TextMonth.Top + TextMonth.Height '- 2
  1375.     
  1376.     NewBottom% = Yr.Top + Yr.Height
  1377.     ChangedTop% = NewBottom% - OldBottom%
  1378.  
  1379.     For I% = 0 To Controls.Count - 1
  1380.        If Controls(I%).Tag <> "Stuck" Then
  1381.           Controls(I%).Top = Controls(I%).Top + ChangedTop%
  1382.        End If
  1383.     Next I%
  1384.     Me.Height = Me.Height + ChangedTop% * GTwpsPerPxly
  1385.  
  1386.     For I% = 7 To 13
  1387.        Label2(I%).FontName = AllTheTime.FontName
  1388.        'Yr.ForeColor = AllTheTime.ForeColor
  1389.        'Yr.FontBold = AllTheTime.FontBold
  1390.        'Yr.FontSize = AllTheTime.FontSize
  1391.        'Label2(I%).Top = Yr.Top + Yr.Height + 3
  1392.        Label2(I%).Top = YearScroll.Top + 2
  1393.     Next I%
  1394.     Left = (Screen.Width - Width) / 2
  1395.     Top = (Screen.Height - Height) / 2
  1396.     AutoRedraw = True
  1397.     picture = LoadPicture("")
  1398.     bLeft = MonthScroll.Left + 1
  1399.     bright = YearScroll.Left + YearScroll.Width - 1
  1400.     bbottom = MonthScroll.Top + MonthScroll.Height - 1
  1401.     bTop = YearScroll.Top + 1
  1402.          'top
  1403.     Line (bLeft - 1 - Addl%, bTop - 1 - Addl%)-(bright + 1 + Addl%, bTop - 1 - Addl%), 0
  1404.     Line (bLeft - 2 - Addl%, bTop - 2 - Addl%)-(bright + 2 + Addl%, bTop - 2 - Addl%), &H808080
  1405.          'left
  1406.     Line (bLeft - 1 - Addl%, bTop - 1 - Addl%)-(bLeft - 1 - Addl%, bbottom + 1 + Addl%), 0
  1407.     Line (bLeft - 2 - Addl%, bTop - 2 - Addl%)-(bLeft - 2 - Addl%, bbottom + 2 + Addl%), &H808080
  1408.          'bottom
  1409.     Line (bLeft - 1 - Addl%, bbottom + 0 + Addl%)-(bright + 1 + Addl%, bbottom + 0 + Addl%), 0
  1410.     Line (bLeft - 2 - Addl%, bbottom + 1 + Addl%)-(bright + 2 + Addl%, bbottom + 1 + Addl%), &HFFFFFF
  1411.          'right
  1412.     Line (bright + 0 + Addl%, bTop - 1 - Addl%)-(bright + 0 + Addl%, bbottom + 1 + Addl%), 0'&HC0C0C0
  1413.     Line (bright + 1 + Addl%, bTop - 2 - Addl%)-(bright + 1 + Addl%, bbottom + 2 + Addl%), &HFFFFFF
  1414.  
  1415.     TempbColor = Mh3d1(0).BackColor
  1416.     TempfColor = Mh3d1(0).ForeColor
  1417.     SavedScaleMode = ScaleMode
  1418.     ScaleMode = 1
  1419.     DrawShadow Me
  1420.     ScaleMode = SavedScaleMode
  1421.  
  1422.     AutoRedraw = False
  1423.     Screen.MousePointer = 0
  1424.     ScaleMode = 1
  1425. End Sub
  1426.  
  1427. Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1428. SavedScaleMode = ScaleMode
  1429. ScaleMode = 1
  1430. MStartX = x
  1431. MStartY = Y
  1432. MouseIsDown = True
  1433. '
  1434. End Sub
  1435.  
  1436. Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1437. If MouseIsDown Then
  1438.    Calendar.Top = Calendar.Top + (Y - MStartY)
  1439.    Calendar.Left = Calendar.Left + (x - MStartX)
  1440. End If
  1441. End Sub
  1442.  
  1443. Sub Form_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1444. MouseIsDown = False
  1445. ScaleMode = SavedScaleMode
  1446. End Sub
  1447.  
  1448. Sub Form_Paint ()
  1449. Dim I%
  1450.     If tcLoaded Then Exit Sub
  1451.     SavedCallerDateField = CallerDateField
  1452.     Command2(0).SetFocus
  1453.     For I% = 0 To 41
  1454.         Mh3d1(I%).ForeColor = 0
  1455.         Mh3d1(I%).BackColor = &HC0C0C0
  1456.     Next I%
  1457.  
  1458.     'Beep
  1459.     Screen.MousePointer = 11
  1460.     LastClick = 1
  1461.     LastClickDate = 1
  1462.     'Refresh
  1463.     tcLoaded = True
  1464.     ToADay (CallerDateField)
  1465.     ConvertDates
  1466.     'Calendar.Hide
  1467.     Screen.MousePointer = 0
  1468. End Sub
  1469.  
  1470. Sub Mh3d1_Click (Index As Integer)
  1471. End Sub
  1472.  
  1473. Sub Mh3d1_DblClick (Index As Integer)
  1474.     'Call Mh3d1_Click(Index)
  1475.     ' tcLoaded = False
  1476.     'Unload Me
  1477. End Sub
  1478.  
  1479. Sub Mh3d1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  1480.      Mh3d1(LastClick).BackColor = TempbColor
  1481.      Mh3d1(LastClick).ForeColor = TempfColor
  1482.      
  1483.      Mh3d1(Index).BackColor = TempfColor
  1484.      Mh3d1(Index).ForeColor = TempbColor
  1485.      Todayed = False
  1486.      LastClick% = Index
  1487.      LastClickDate = ValTrim((Mh3d1(Index).Caption))
  1488.      CallerDateField = DateSerial(ValTrim((Yr.Caption)), ValTrim((Calendar.MonthValue.Text)), ValTrim((Mh3d1(Index).Caption)))
  1489.  
  1490. End Sub
  1491.  
  1492. Sub MonthScroll_Change ()
  1493. On Local Error Resume Next
  1494.     If MonthScroll.Value = 13 Then
  1495.         gNocalc = True
  1496.         MonthScroll.Value = 1
  1497.         YearScroll.Value = YearScroll.Value + 1
  1498.         gNocalc = False
  1499.     End If
  1500.     If MonthScroll.Value = 0 Then
  1501.         gNocalc = True
  1502.         MonthScroll.Value = 12
  1503.         YearScroll.Value = YearScroll.Value - 1
  1504.         gNocalc = False
  1505.     End If
  1506. On Local Error GoTo 0
  1507.  
  1508.     Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1509.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1510.     If Not gNocalc Then ConvertDates
  1511.  
  1512.  
  1513. End Sub
  1514.  
  1515. Sub MonthScroll_Change1 (PartBar As Integer)
  1516.     MsgBox "Monthscroll Fired"
  1517.     If PartBar = 5 Or PartBar = 7 Then GoTo bypass2
  1518.     If MonthScroll.Value = 13 Then
  1519.         MonthScroll.Value = 1
  1520.         YearScroll.Value = YearScroll.Value + 1
  1521.     End If
  1522.     If MonthScroll.Value = 0 Then
  1523.         MonthScroll.Value = 12
  1524.         YearScroll.Value = YearScroll.Value - 1
  1525.     End If
  1526.  
  1527.     Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1528.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1529.     ConvertDates
  1530. bypass2:
  1531. End Sub
  1532.  
  1533. Sub MonthScroll_Scroll ()
  1534. TextMonth.Caption = TransMonth2$((MonthScroll.Value))
  1535. End Sub
  1536.  
  1537. Sub Picture1_Click ()
  1538. Screen.MousePointer = 11
  1539. Calabout.Show Modal
  1540. Screen.MousePointer = 0
  1541. End Sub
  1542.  
  1543. Sub TextMonth_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1544. Call Form_MouseDown(Button, Shift, x, Y)
  1545. End Sub
  1546.  
  1547. Sub TextMonth_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1548. Call Form_MouseMove(Button, Shift, x, Y)
  1549. End Sub
  1550.  
  1551. Sub TextMonth_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1552. Call Form_MouseUp(Button, Shift, x, Y)
  1553. End Sub
  1554.  
  1555. Sub ToADay (D As Double)
  1556. Dim CurrentMonth%, CurrentYear%
  1557.     CurrentMonth = Month(D)
  1558.     CurrentYear = Year(D)
  1559.     Calendar.Yr.Caption = Trim$(Str$(CurrentYear))
  1560.     Calendar.Mnth.Caption = Str$(CurrentMonth)
  1561.     TextMonth.Caption = TransMonth2$(CurrentMonth)
  1562.     gNocalc = True
  1563.     Calendar.YearScroll.Value = Year(D)
  1564.     gNocalc = False
  1565.     Calendar.MonthScroll.Value = Month(D)
  1566.     DayToSelect = Day(D)
  1567.     Todayed = True
  1568. End Sub
  1569.  
  1570. Sub ToToday ()
  1571.     ToADay (Now)
  1572.     Todayed = True
  1573. End Sub
  1574.  
  1575. Function TransMonth$ (M As Integer)
  1576. TransMonth$ = RTrim$(Mid$("JanFebMarAprMayJunJulAugSepOctNovDec", (M - 1) * 3 + 1, 3))
  1577. End Function
  1578.  
  1579. Function TransMonth2$ (M As Integer)
  1580. If (M < 1) Then
  1581.    M = 1
  1582. Else
  1583.    If (M > 12) Then
  1584.       M = 12
  1585.    End If
  1586. End If
  1587. TransMonth2$ = RTrim$(Mid$("January  February March    April    May      June     July     August   SeptemberOctober  November December ", (M - 1) * 9 + 1, 9))
  1588.  
  1589. End Function
  1590.  
  1591. Function ValTrim (x$) As Integer
  1592. Dim S$
  1593. S$ = Trim$(x$)
  1594. ValTrim = Val(S$)
  1595. End Function
  1596.  
  1597. Sub YearScroll_Change ()
  1598.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1599.     If Not gNocalc Then ConvertDates
  1600. End Sub
  1601.  
  1602. Sub YearScroll_Scroll ()
  1603.     Calendar.Yr.Caption = Trim(Str$(YearScroll.Value))
  1604.  
  1605. End Sub
  1606.  
  1607. Sub Yr_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1608. Call Form_MouseDown(Button, Shift, x, Y)
  1609.  
  1610. End Sub
  1611.  
  1612. Sub Yr_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1613. Call Form_MouseMove(Button, Shift, x, Y)
  1614. End Sub
  1615.  
  1616. Sub Yr_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1617. Call Form_MouseUp(Button, Shift, x, Y)
  1618. End Sub
  1619.  
  1620.